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ey Lv - Allocate one logical unit number 
E HYUN = Deallocate one logical unit number 
AKE-LUN = Take a particular LUN 
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or for toate Unt mw SESSA AALHERE RGEC Sao 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT EGORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERV 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sorte 
N eet WITH THE TERMS OF SUCH THE 
ION OF THE ABOVE gp ld Lol NOTIC 
THEREOF MAY NOT BE PROVIDED OR OTHERW 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PARARAAAAASAALALAAALALALALALELALAAAS EASES ERASE AERA RRA S ARERR SEES ERASE AES SO 


; FACILITY: Language-independent language support 
; ABSTRACT: 


Three pau re for allocating and et eee Logical yntt 
numbers. Usi "9 these routines allows use of logical unit 
numbers by multiple procedures without conflicts. 


; ENVIRONMENT: User Mode, AST Reentrant 


S AUTHOR: John Sauter, CREATION DATE: 26-JAN-1979 
: MODIFIED BY: 


t try_to use FFC with a 100-bit size. JBS 26-JAN-1979 


; 1006 - Sriginet from LIBSEF. d8s 26-JAN-1979 
- Don 
88 - Allocate 100 bits, not 59. JBS 27-JAN-1979 
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esa seIREATag! setter for ontcat Slt mu Nae tags ORES ILE BaesE Oates MO | IE 


-SBTTL DECLARATIONS 
INCLUDE FILES: 


: : SLUBDEF ; Define LUBSK_LUN_MAX 
§ ; EXTERNAL DECLARATIONS: 
8 : -DSABL GBL ; Prevent yndec bored 
: symbols from being 
6 j ; automatically global. 
é ; MACROS: 
09 64 ; NONE 
66 ; EQUATED SYMBOLS: 
00000004 9 68 : lun = 4 ; LUN parameter 
000 19 > OWN STORAGE: 
00000000 i y .PSECT _OTSSDATA RD, WRT, NOEXE, NOSHR, PIC, LONG, 
308 3 CON, LCL, REL, USR 
0 ; 75 LUN_POOL: Pool of available LUNs 
00*00"00"00"00"00"00"00"00"90' 00" 00" 00 76 .BYTE OC<LUBSK_LUN_ MAX=LUBSK _LUN_MIN+8>/8) 
00'00'00" 99¢ es 
9 F i. : PSECT DECLARATIONS: 
OF & .PSECT _OTSSCODE PIC, USR, CON, REL, LCL, SHR, - 
00000000 1 EXE, RD, NOWRT. LONG 
< 
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Ae OTS$SGET LUN = Allocate one Lectent unit 6-S oat 99:32:88 LIBRTL.SRCJOTSLUN.MAR; 1 se ad 1- 
oe -SBTTL OTSSSGET_LUN = Allocate one logical unit number 
: FUNCTIONAL DESCRIPTION: 

OTSSSGET_LUN allocates one logical unit number from a process-wide 

ool. J¥ @ LUN is available for use, its number is returne 

to the caller. If no LUNs are available, an error is returned 

as the function value. 
CALLING SEQUENCE: 

status.wic.v = OTSSSGET_LUN (LUN.wl.r) 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 


LUN_POOL, a table of available logical unit numbers in 
OWN storage 


OUTPUT PARAMETERS: 
LUN.wl.r - The LUN allocated, or -1 if none were available. 
IMPLICIT OUTPUTS: 


If successful, an ane | is made into LUN_POOL indicating that 
a logical unit number has been reserved. 


FUNCTION VALUE: 
COMPLETION CODES: 


1 = success, 0 = failure 
SIDE EFFECTS: 


woo 


SS 4 
SONA NEW 9 ONO NES WIN @ O OD NOAMUE WIN O OONOAUE WN O 


-ENTRY OTSSSGET_LUN, “M<IV> ; Save nothing 


; Scan LUN_POOL for first available LUN 


00000000°EF OF SKPC =. #255, #<LUBSK_LUN_MAX+8>/8, LUN-POOL 
ailadle 


BEQL ALL OuT : None av 


PAAAAA.AMIAIAIDIPIDINIPININININININD 2 2 COOCooooooo 


a a aa a at tk a at at a ot = = = = = 3 ss SS Ss ss 


30 oF SUBL3 RO,” #<LUBSK_LUN_MAX+8>/8, R 
ASHL - RO, : Agoren taate LUN 
51 61 O FFC #0, #8, (R1), RI 3: Find exact LUN 
BEQL. SCAN : An AST took all in this byte 
30 ADDL2 R1, RO 3 Frege LUN 
00000077 8F 8 CMPL RO, #LUBSK_LUN_MAX ; Is it too big? 
BGTR ALL_OUT ; Yes, all LUNs are reserved 


D2 00000000° EF 
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T_LUN = Allocate one log 
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mel esl ed 


P=1984 LIBRT cgRe tio OTSLUN.MAR; 1 


* 


Now recheck and set the bit under interlock, in case someone 
has set it at AST level in the meantime. 


“We Ge Ge te te 
A] 


é 


BBSS RO, LUN_POOL, SCAN ; Repeat scan if already set 


Return success with logical unit number in LUN. 


MOVL RO, @lun(AP) 3; Store LUN 

MOVL #1, RO 3 SS$_NORMAL 

RET 3 Exit 
se 
3 Return error since no LUNs available bt 
ALL_OUT: 

MNEGL #1, @lun(AP) ; Set LUN to -1 

CLRL RO ; Insufficient LUNs 

RET 3: Exit 
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Poem mal: es ee ee ee Te Bt Be as Be te Dae Be te ae Bs a Be a a hes bain bs na bn bn sins bn bn sin ns ns bein stents) 


OP 8 8 A 8 St 
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Seles oe woonowonow0ono 


Deallocate one logical u 


P-1984 LIBRTL.SRCJOTSLUN.MAR; 1 (4) 
se -SBTTL OTSSSFREE_LUN = Deallocate one logical unit number 
FUNCTIONAL DESCRIPTION: 
OTSSSFREE f N is the complement of OTSSSGET_LUN. When a routine 
called OTSSS$GET_LUN $9 allocate a LUN, and fio 
longer needs it, OTSSSFREE_LUN should be called to free the 
LUN for use by other routines. 
CALLING SEQUENCE: 
status.wic.v = OTSSSFREE_LUN (LUN.rl.r) 
INPUT PARAMETERS: 
LUN.rl.r - The Logical unit number to be 
deallocated. This is the value returned 
to the user by OTSSSGET_LUN. 
IMPLICIT INPUTS: 


LUN_POOL, a table of available logical unit numbers in OWN 
storage. 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 


An entry is made in LUN_POOL indicating that the LUN 
is free for use. 


FUNCTION VALUE: 
COMPLETION CODES: 


1 = success, 0 = failure 
SIDE EFFECTS: 


NONE 


~-ENTRY OTSSSFREE_LUN, “M<IV> ; Save nothing 


- 


Check to see if LUN is in the proper range. 


CMPL @lun(AP), #LUBSK_LUN_MAX ; Bigger than 99? 
BGTR RES_SVS { : Yes, error 

TSTL alun(aPy 3; Less than 0? 
BLSS RES_SYS_1 ; Yes, error 


LUN is in range. Now, unset the bit. 


ra 


97 00000000'EF 
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50 


= Resour 
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LIBRTL.SRCJOTSLUN.MAR; 1 
BBCC @lun(AP), LUN_POOL, ALR_FRE ; Clear but error if 

: already clear. 
Return success 
MOVL #1, RO 3 SS$_NORMAL 
RET 


Error if LUN is not in the proper range 


1: 

CLRL RO 3; LUN invalid 

RET 

Error if LUN already free. 

CLRL RO 3; LUN already free 
RET 
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; -SBTTL OTSSSTAKE_LUN - Take a particular LUN 
FUNCTIONAL DESCRIPTION: 
OTSSSTAKE LUN is used when a routine wants to allocate 
a particular Lu. This is different 
from OTSSSGET_LUN which allocates an arbitrary LUN. 


To deallocate an LUN reserved with OTSSSTAKE_LUN 
use OTSSSFREE_LUN. 


CALLING SEQUENCE: 
status.wic.v = OTSSSTAKE_LUN (LUN.rl.r) 
INPUT PARAMETERS: 


LUN - The logical unit number desired to be 
allocated. 


+ 


IMPLICIT INPUTS: 


LUN_POOL, a table of available LUNs located in OWN 
storage. 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 


An entry is made in LUN_POOL indicating that the LUN 
is allocated. 


FUNCTION VALUE: 
COMPLETION CODES: 


1 = success, 0 = failure 
SIDE EFFECTS: 


.ENTRY OTSSSTAKE_LUN, “M<IV> —; Save nothing 


First check to see if LUN is in range. 


CMPL @lun(AP), #LUBSK_LUN_MAX ; Greater than 99? 
BGTR RES_SYS é : Yes, error 

TSTL alun(aPy ; Less than 0? 

BLSS RES_SYS_2 ; Yes, error 


a 


Now attempt to allocate that LUN 


r 
LIBRTL.SRCJOTSLUN.MAR; 1 
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Logical unit number taken already 
Exit 


allocator for logical at nu 16-SEP-1984 00:32: AX/VMS Macro v04-00 ° 
LUN = Take a port icular LUN ~SEP-1 138¢ 90:32:38 LIBRTL. sae REI OTSLUN.MAR; 1 er &) 
9 BBSS @lun(AP), LUN_POOL, ALR_RES ; Reserve it, but error 
} A if’ already reserved. 
15 34 
! ; Return success 
1 & 
1 MOVL #1, RO 3 SS$_NORMAL 
! RET 3 Exit 
s¢ 
g Error if LUN out of range 
RES_SYS_2: 
CLRL RO : Invalid logical unit number 
RET 3; Exit 
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Symbol table tes panies 7 90:32:28 LIBRTL.SRCJOTSLUN.MAR; 1 ° (3) 
ALL_OUT 
Aes 
FOUND 
LUBSK_LUN_MAX 
LUBSK_LUN_MIN 
LUN 
LUN_ POOL 1 
OTSSSFREE_LUN 
OTSS$GET_CUN 
OTSSSTAKE_LUN 
RESm eye x 
SCAR 0 

$oeconee amowmnonsae + 

: Psect synopsis ! 

Goeececoceccececn + 
PSECT name Allocation PSECT No. Attributes 
- ABS. i444 44 ( Q.) 00 « 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_OTSSDATA QOOOOOOF ¢ 15.) 4 . toe PIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
_OTSSCODE 00000087 (¢ 135.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

toes en eee sem meeneocmoemeae + 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 31 93 0:00:00.59 
C processing 149 ° 0:00:02.6 
coos I tent ‘ "3 3 :00:03.1 
yabol table sor é :00:00. 
Pass 2 6 4 :00: mit 
Symbol table output 01 :00: 8) 
Psect synopsis output :00. 3 :00:00. ‘ 
Cross-reference output :00. 0:00:00.0 
Assembler run totals 37 1.81 0:00:09.16 


The working set Limit was 1050 pages. 

7533 bytes (15 pages) of virtual memory were used to bi'ffer the intermediate code. 

There were 10 pages of symbol table space or jecasee to hold 146 non-local gee 0 Local symbols. 
source Lines were read in Pass 1, produc ng 18 object records in Pass 2. 

pages of virtual memory were used to define 1 macro. 


eeeerecesonecoceneseooceen ees $ 


Macro Library name Macros defined 

SSSDUA28: (LIBRTL.OBJILIGRIL.MLB; 1 1 
=Besseouase: v8] JSTARLET.MLB; d 
TOTALS (all libraries) 


R=MVe2eo vo 


o2zc- 


0" 
0) 
0" 
SI 


aH £32: S 
VAX=IT Macro Run Statistics —~ “esource allocator for logical unit nu T8sBE-1984 09:92:58 HMMONTE.SeeSorscunoman;1 "28° (8, 


136 GETS were required to define 1 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/D I SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSLUN/OBJ=0BJ$:OTSLUN MSRC$:OTSLUN/UPDATE=(ENH$:OTSLUN) +L18$:LIBRTL/LI 
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